﻿Public Enum PSExecuteStreamDataSource
    Output = 1
    [Error]
    Warning
    Verbose
    Debug
    Progress
End Enum

Public Class PSExecuteStreamData
    Inherits System.EventArgs

    Private mySource As PSExecuteStreamDataSource = PSExecuteStreamDataSource.Output
    Private myMessage As String
    Private myDTO As DateTimeOffset = DateTimeOffset.Now

    Public Sub New(message As String, Optional source As PSExecuteStreamDataSource = PSExecuteStreamDataSource.Output)
        Me.myMessage = message
        Me.mySource = source
    End Sub

    Public ReadOnly Property Message As String
        Get
            Return Me.myMessage
        End Get
    End Property

    Public ReadOnly Property Source As PSExecuteStreamDataSource
        Get
            Return Me.mySource
        End Get
    End Property

    Public ReadOnly Property DataGenerated As DateTimeOffset
        Get
            Return Me.myDTO
        End Get
    End Property
End Class
